10 POKE52,52:POKE56,52:CLR:POKE53281,0:POKE53280,0
20 DV=PEEK(186):IFDV<8THENDV=8
30 PRINT"[147]":GOSUB60000
40 DIMW$(110),B(15),S$(17),M$(17),T$(17),MC(17),BR(17)
50 UNPACK=13824:HG=13827:SR=52480:SQ=52486:G=49153:IP=13312
52 SYS57812"ANTH 3400-3747",DV,0:POKE780,0:POKE781,0:POKE782,52:SYS65493
54 SYS57812"ANTH/FLAG.SHP",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
56 PRINT"[147]":POKE251,64:POKE252,96:POKE253,80:SYSUN
58 POKE252,96:POKE253,80:SYSHG
60 SYS57812"ANTH FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
80 SYS57812"ANTH C000-CF5F",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
90 FS$="[129][193][206][212][200][197][205][211] [193][206][196] [198][204][193][199][211]"
100 SP$="                                        "
110 SYSSR,96,76,56
120 TP$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
130 BT$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
140 FORI=0TO15:READS$:S$(I)=S$+".SHP":M$(I)=S$+".MUS":T$(I)=S$+".TXT"
150 READMC(I),BR(I):NEXT
151 DATAFRANCE,0,5
152 DATAGABON,0,14
153 DATAGAMBIA,0,14
154 DATAGERMANY,0,5
155 DATAGHANA,0,14
156 DATAGREATBRITAIN,0,5
157 DATAGREECE,0,14
158 DATAGREENLAND,0,5
159 DATAGUATEMALA,0,5
160 DATAGUINEABISSAU,0,14
161 DATAGUYANA,0,14
162 DATAGUINEA 2,0,14
163 DATAGRENADA,1,5
164 DATAHAITI,0,5
165 DATAHONDURAS,0,5
166 DATAHUNGARY,0,14
200 SYSHG
210 GOTO600
220 :
230 :REM BOX
240 :
250 POKE214,Y:PRINT
260 PRINTTAB(X)"[176]"LEFT$(TP$,XX)"[174]"
262 PRINTTAB(X)"[170]["LEFT$(SP$,XX-2)"][180]"
270 FORII=2TOYY:PRINTTAB(X)"[170]"LEFT$(SP$,XX)"[180]":NEXT
272 PRINTTAB(X+1)"[145]<"TAB(X+XX)">"
280 PRINTTAB(X)"[173]"LEFT$(BT$,XX)"[189]"
290 RETURN
300 :
310 :REM LOAD PIC/MUS/TXT
320 :
330 POKE214,20:PRINT:PRINTTAB(14)"[155][204]OADING [208]ICTURE[145]"
340 SYS57812S$(S),DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
350 PRINTTAB(22)"[205]USIC  [145]"
360 SYS57812M$(S),DV,0:POKE780,0:POKE781,0:POKE782,128:SYS65493
370 PRINTTAB(22)"[215]ORDS  [145]"
380 FORI=0TO99:W$(I)="":NEXT
390 SYS13312,T$(S),DV
400 H=PEEK(252)*256+PEEK(251)
410 W$(0)=MID$(W$(0),3)
420 PRINTTAB(14)"               "
430 RETURN
440 :
450 :REM DISPLAY/PLAY
460 :
470 POKE251,64:POKE252,96:POKE253,76:SYSUN
480 POKE252,96:POKE253,76:SYSHG
490 SYS49615:POKE781,0:POKE782,128:SYS49664:POKE49152,7:MU=1
500 RETURN
510 :
520 :REM TURN OFF PIC/MUS
530 :
540 POKE49152,0:POKE54276,0:POKE54283,0:POKE54290,0:SYS49897:SYS49935:MU=0
550 SYSHG
560 RETURN
570 :
580 :REM LOOP
590 :
600 S=1
610 PRINT"[147]":POKE53272,31
620 GOSUB880
622 POKE214,19:PRINT
624 IFF1THENPRINTTAB(4)"SPACE [154] NEXT SONG  Q [154] QUIT TO MENU":GOTO628
626 PRINTTAB(12)"SPACE [154] STOP SONG
628 [141]330
630 N[178]0
640 [141]470:[151]53280,BR(S)
650 [158]SQ[171]3,"	STOPOPEN"
660 [139]MC(S)[167][158]SQ[171]3,"	OPEN"
670 [129]I[178]0[164]4:[158]SQ,1,20[170]I,[200](SP$,38):[130]
680 [129]I[178]0[164]4
690 [139][195](W$(N[170]I))[179]3[167]710
700 [158]SQ,20[171][181](([195](W$(N[170]I))[173]2)),20[170]I,W$(N[170]I)
710 [130]
720 [158]SQ[171]3,"WAIT"
730 [139][194](49152)[179][177]7[167]A$[178]" ":[137]830
740 JV[178][194](56320):[161]A$:[139]A$[178]""[175](JV[178]127)[167]730
742 [139]F1[167][139]A$[178]"Q"[167]F1[178]0:G[178]0:[141]540:[137]620
750 [139]A$[179][177]""[175](JV[179][177]126)[167]790
760 [139]N[177][178]H[171]5[167]730
770 N[178]N[170]5
780 [137]660
790 [139]A$[179][177]""[175](JV[179][177]125)[167]830
800 [139]N[179]2[167]730
810 N[178]N[171]5
820 [137]660
830 [139]A$[178]" "[176]JV[179]112[167][141]540:S[178](S[170]1)[175]15:[137]620
840 [137]730
850 :
860 :[143] MENU SCREEN
870 :
880 [151]53281,0:[151]53280,0
882 [139]S[178]0[167]S[178]1:F1[178]0:[137]1050
890 [139](G[178]1)[175](MC(S[171]1)[178]0)[175](F1[178]1)[167]1050
900 [139](G[178]1)[175](MC(S[171]1)[178]0)[175](F1[178]0)[167]1050
910 G[178]1:[153]"LOAD":X[178]2:XX[178]35:Y[178]0:YY[178]21:[141]250
920 [153]"FOR"[163]10)"ORTANTAN^           ORTANTAN^
930 PRINTTAB(10)"[171][192][192][179][158]NTHEMS AND[129] [171][192][179][158]LAGS
940 [153][163]10)"FOREXP  /TANTANTANTANTANTAN    TANEXP
950 PRINTTAB(13)"[145][192][192][192][192][174]  [176]
960 [153][163]13)"SYSOF THEFOR (null)OR^(null)SYSORLD
970 PRINTTAB(13)"[129]       [173][189][173][189]
972 [153]"VERIFY(null)CLOSE(null)CLOSE"[163]33)"WAITVERIFY(null)CLOSE(null)CLOSE"
974 [153]"VERIFY(null)OPENCLOSELOGCLOSE"[163]33)"WAITVERIFY(null)CLOSELOGCLOSE"
976 [153]"VERIFY(null)"[163]33)"(null)"
978 [153]"VERIFY(null)"[163]33)"(null)"
980 [151]214,8:[153]
990 [129]I[178]0[164]7:[153][163]6)""[199](I[170]65);
1000 [153][163]9)"CONT"[200](S$(I),[195](S$(I))[171]4);
1010 [153][163]22)""[199](I[170]73);
1020 [153][163]25)"CONT"[200](S$(I[170]8),[195](S$(I[170]8))[171]4):[130]
1030 [153][163]12)"R  CONT'ROUND THE WORLD
1040 PRINTTAB(12)"Q  [154]QUIT
1050 [139]F1[167][161]A$:[139]A$[178]""[167][142]
1052 [151]214,19:[153]:[153]"                                  "
1060 [161]A$:[139]A$[178]""[167]1060
1070 [139]A$[179][177]"R"[167]1100
1080 F1[178]1:S[178]0
1090 [142]
1100 [139]A$[178]"Q"[167][141]39900:[137]1040
1110 [139]A$[179]"A"[176]A$[177]"P"[167]1060
1120 S[178][198](A$)[171]65:F1[178]0
1130 [142]
10000 D[178][194](186):N$[178]"B.ANTH-FLAG IV":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
39900 [151]214,18:[153]:[153][163]8)"CONTQUIT? ARE YOU SURE? (YCONT/NCONT)ON"
39910 [161]A$:[139]A$[178]""[167]39910
39920 [139]A$[178]"Y"[167]40000
39930 [153][163]8)"CONT                             ON"
39940 [142]
40000 [129]I[178]0[164]21:[151]828[170]I,8[170]I:[130]
40010 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]40030
40020 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A
40030 A$[178]"PRESENTER":[141]40040:A$[178]"HELLO CONNECT"
40040 [129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130]
40050 [160]2:[159]2,I,2:[160]2:[139]ST[167]40070
40060 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40090
40070 [130]:[139]A$[178]"PRESENTER"[167][142]
40080 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40090 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40100 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40110 [153]"P(null)53272,23:RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]9:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"ATN(null)(null)LEFT$VAL(null)(null) ATN(null)STR$ ASC(null)ATNCHR$(null) (null)ASC (null)LEFT$VAL (null)(null)(null)(null)STR$"
60032 Z$(1)[178]"BY (null)ARQUIS, LEFT$ARNED AND (null)UCKER"
60040 Z$(2)[178]"(LEN) 1995 BY MID$ & ASC (null)UBLISHING, RIGHT$NC.
60050 Z$(4)="[212]HIS PROGRAM IS NOT SHAREWARE
60070 Z$(5)[178]"OR IN THE PUBLIC DOMAIN."
60080 Z$(7)[178]"1-800-594-3370 OR 1-318-221-8718"
60090 [151]214,12:[153]
60100 [129]I[178]0[164]7:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]